home *** CD-ROM | disk | FTP | other *** search
/ Amiga Collections: Franz PD / Franz PD Disk #041 (1990)(Amiga User Group Deutschland e.V.).zip / Franz PD Disk #041 (1990)(Amiga User Group Deutschland e.V.).adf / DTdbS / tdbs5 (.txt) < prev   
AmigaBASIC Source Code  |  1989-07-02  |  24KB  |  535 lines

  1. SCREEN 2,640,200,4,2
  2. WINDOW 2,,,0,2
  3. RANDOMIZE TIMER
  4. DEFLNG a-z
  5. DECLARE FUNCTION opendiskfont&() LIBRARY
  6. LIBRARY "diskfont.library"
  7. LIBRARY "graphics.library"
  8. altfont=PEEKL(WINDOW(8)+52)
  9. neufont$="amber.font"+CHR$(0)
  10. hoehe=19:pref=96 
  11. text(0)=SADD(neufont$)
  12. text(1)=(2^16)*hoehe+pref
  13. font=opendiskfont&(VARPTR(text(0)))
  14. IF font<>0 THEN CALL setfont&(WINDOW(8),font)
  15. FOR i=1 TO 5
  16. MENU i,0,1,""
  17. NEXT
  18. MENU ON
  19. FOR i=0 TO 27
  20. PALETTE i,0,0,0
  21. NEXT
  22. OPEN "I",#1,"Held"
  23. WHILE NOT EOF(1)
  24. INPUT #1,spieler$,geld,punkte,mut,waffe$
  25. INPUT #1,kleidung$,geschick,parade,attacke 
  26. INPUT #1,charisma,intelligenz,kraft,lebensenergie,tp 
  27. WEND
  28. CLOSE #1
  29. start:
  30. CALL freesprite (0) 
  31. COLOR 2  
  32. 1 CLS:LOCATE 3,3
  33. schr$="Du befindest Dich auf einer Strasse in der Stadt. Viele ":sp(schr$):LOCATE 5,3
  34. schr$="Menschen laufen hier umher und in der Ferne hoerst Du einige":sp(schr$):LOCATE 7,3
  35. schr$="Marktfrauen schreien, die ihre Ware verkaufen wollen. von ":sp(schr$):LOCATE 9,3
  36. schr$="hier aus kannst Du nach Westen, Osten und nach Sueden.":sp(schr$):LOCATE 12,3:COLOR 3
  37. schr$="Du kannst nach Sueden < F1 >":sp(schr$):LOCATE 14,3
  38. schr$="Willst Du vielleicht nach Osten gehen? < F2 >":sp(schr$):LOCATE 16,3
  39. schr$="Oder willst Du nach Westen < F3 >":sp(schr$):COLOR 2   
  40. PALETTE 5,0.93,0.2,0
  41. PALETTE 6,0.4,0.6,1
  42. PALETTE 7,0.8,0.4,0.33
  43. PALETTE 2,1,0.87,0.73
  44. PALETTE 3,1,1,0.13
  45. WHILE 1
  46. getkey x
  47. ON x GOTO 7,3,2 
  48. IF x=11 THEN GOSUB dokument:GOTO 1
  49. WEND
  50.  
  51. 2 CLS:LOCATE 3,3
  52. schr$="Du bist auf einer Strasse aus Kopfsteinpflaster. Es ist hier":sp(schr$):LOCATE 5,3
  53. schr$="schon ruhiger, da Du die Hauptstrasse verlassen hast. Vorbei":sp(schr$):LOCATE 7,3
  54. schr$="an einigen alten Haeusern kommst Du wieder auf eine Art Kreu-":sp(schr$):LOCATE 9,3
  55. schr$="zung. Von hier kannst Du nach Osten, Westen und nach Sueden":sp(schr$):LOCATE 12,3:COLOR 3
  56. schr$="Gehst Du nach Sueden druecke < F1 >":sp(schr$):LOCATE 14,3
  57. schr$="Du kannst noch nach Osten < F2 >":sp(schr$):LOCATE 16,3
  58. schr$="Nach Westen kommst Du mit < F3 >":sp(schr$):COLOR 2
  59. WHILE 1
  60. getkey x
  61. ON x GOTO 6,1,4
  62. IF x=11 THEN GOSUB dokument:GOTO 2
  63. WEND
  64.  
  65. 3 CLS:LOCATE 3,3
  66. schr$="Du bist auf einem kleinen Weg, der sich nach Sueden biegt. An":sp(schr$):LOCATE 5,3
  67. schr$="der oestlichen Ecke des Weges befindet sich ein kleiner Stand.":sp(schr$):LOCATE 7,3
  68. schr$="Die Frau schreit ihre neuste Wahre heraus. Als Du naeher an":sp(schr$):LOCATE 9,3
  69. schr$="den Stand herantritts bietet die Frau Dir ihre Ware an. Fish ":sp(schr$):LOCATE 11,3
  70. schr$="gibt es schon fuehr 2 Silberstuecke, Obst fuehr 1 Silberstueck.":sp(schr$):LOCATE 14,3:COLOR 3
  71. schr$="Willst Du das Angebot annehmen? < F1 >":sp(schr$):LOCATE 16,3
  72. schr$="Du kannst auch nach Sueden < F2 >":sp(schr$):LOCATE 18,3
  73. schr$="Willst Du vielleicht nach Westen? < F3 >":sp(schr$):COLOR 2
  74. WHILE 1
  75. getkey x
  76. IF x=1 THEN GOSUB 100
  77. IF x=2 THEN 8
  78. IF x=3 THEN 1
  79. IF x=11 THEN GOSUB dokument:GOTO 3
  80. WEND
  81.  
  82. 4 CLS:LOCATE 3,3
  83. schr$="Du stehst auf einem Weg, der nach Sueden und nach Westen hin":sp(schr$):LOCATE 5,3
  84. schr$="verlaeuft. Ansonsten gibt es hier keine besonderen Gegenstaende":sp(schr$):LOCATE 8,3:COLOR 3
  85. schr$="Willst Du nach Sueden druecke < F1 >":sp(schr$):LOCATE 10,3
  86. schr$="Nach Osten geht es mit < F2 >":sp(schr$):COLOR 2
  87. WHILE 1
  88. getkey x
  89. ON x GOTO 5,2
  90. IF x=11 THEN GOSUB dokument:GOTO 4
  91. WEND
  92.  
  93. 5 CLS:LOCATE 3,3
  94. schr$="Du bist auf einem Weg, der in drei Richtungen weiterverlaeuft.":sp(schr$):LOCATE 5,3
  95. schr$="Es fuehrt ein Weg nach Sueden, nach Norden und nach Osten.":sp(schr$):LOCATE 7,3
  96. schr$="In suedlicher Richtung kannst Du den Schein einer Lampe wahr-":sp(schr$):LOCATE 9,3
  97. schr$="nehmen.":sp(schr$):COLOR 3:LOCATE 14,3
  98. schr$="Gehst Du auf den Schein der Lampe zu?< F1 >":sp(schr$):LOCATE 16,3
  99. schr$="Willst Du nach Norden druecke < F2 >":sp(schr$):LOCATE 18,3
  100. schr$="Du kannst auch noch nach Osten < F3 >":sp(schr$):COLOR 2
  101. WHILE 1
  102. getkey x
  103. ON x GOTO 16,4,6
  104. IF x=11 THEN GOSUB dokument:GOTO 5
  105. WEND
  106.  
  107. 6 IF gh=1 THEN 105
  108. CLS:LOCATE 3,3
  109. schr$="Auf dem Weg, auf dem Du Dich befindest steht noch ein anderer":sp(schr$):LOCATE 5,3
  110. schr$="Mann. Er ist ein dunklen langen Umhang gehuellt und sagt zu Dir:":sp(schr$):LOCATE 7,3:COLOR 6
  111. schr$="Hey, Du hast einen schoenen Geldbeutel! Los gib ihn mir oder ":sp(schr$):LOCATE 9,3
  112. schr$="ich mach Dich kalt!":sp(schr$):LOCATE 14,3:COLOR 3
  113. schr$="Du gibst ihn Deinen Geldbeutel < F1 >":sp(schr$):LOCATE 16,3
  114. schr$="Du greifst ihn an < F2 >":sp(schr$):LOCATE 18,3
  115. schr$="Du kannst auch versuchen zu fliehen < F3 >":sp(schr$):COLOR 2
  116. gh=1
  117. WHILE 1
  118. getkey x
  119. ON x GOTO 102,103,104
  120. WEND
  121.  
  122. 7 CLS:LOCATE 3,3
  123. schr$="Du befindest Dich immer noch auf einer Strasse, wahrscheinlich":sp(schr$):LOCATE 5,3
  124. schr$="eine Art Hauptstrasse, denn hier laufen immer mehr Menschen ":sp(schr$):LOCATE 7,3
  125. schr$="wild durcheinander und die meisten gehen nach Sueden, denn dort":sp(schr$):LOCATE 9,3
  126. schr$="ist heute Markttag!":sp(schr$):LOCATE 11,3
  127. schr$="Du kannst von hier aus nach Norden, Sueden oder nach Osten!":sp(schr$):LOCATE 14,3:COLOR 3
  128. schr$="Willst Du nach Sueden < F1 >":sp(schr$):LOCATE 16,3
  129. schr$="Du kannst auch noch nach Norden < F2 >":sp(schr$):LOCATE 18,3
  130. schr$="Wenn Du nach Osten willst druecke < F3 >":sp(schr$):COLOR 2
  131. WHILE 1
  132. getkey x
  133. ON x GOTO 10,1,8
  134. IF x=11 THEN GOSUB dokument:GOTO 7
  135. WEND
  136.  
  137. 8 CLS:LOCATE 3,3
  138. IF jkl=1 THEN 106
  139. schr$="Als Du diese Strasse ein Stueck hinuntergegangen bist, wird":sp(schr$):LOCATE 5,3
  140. schr$="an einem Haus eine Tuer geoeffnet und ein alter Mann tritt":sp(schr$):LOCATE 7,3
  141. schr$="heraus und spricht Dich an. Er meint er weiss wer Deinen ":sp(schr$):LOCATE 9,3
  142. schr$="Freund getoetet hat. Er bittet Dich in sein Haus.":sp(schr$):COLOR 3:LOCATE 12,3
  143. schr$="Du nimmst dankend an und folgst dem Mann < F1 >":sp(schr$):LOCATE 14,3
  144. schr$="Du lehnst lieber ab und gehst die Strasse weiter entlang < F2 >":sp(schr$):COLOR 2:jkl=1
  145. WHILE 1
  146. getkey x
  147. ON x GOTO 106,107
  148. WEND
  149.  
  150. 9 CLS:LOCATE 3,3
  151. schr$="Du befindest Dich auf einer Strasse, die sich in drei":sp(schr$):LOCATE 5,3
  152. schr$="Richtungen teilt. Von hier aus kannst Du erstens nach Norden":sp(schr$):LOCATE 7,3
  153. schr$="dann noch nach Sueden und nach Westen. Im Westen ist es jetzt":sp(schr$):LOCATE 9,3
  154. schr$="am lautesten, weil dort wohl auch der Marktplatz ist.":sp(schr$):COLOR 3:LOCATE 12,3
  155. schr$="Du kannst nach Norden < F1 >":sp(schr$):LOCATE 14,3
  156. schr$="Willst Du vielleicht nach Sueden < F2 >":sp(schr$):LOCATE 16,3
  157. schr$="Du kannst auch noch nach Westen < F3 >":sp(schr$):COLOR 2
  158. WHILE 1
  159. getkey x
  160. ON x GOTO 8,14,10
  161. IF x=11 THEN  GOSUB dokument:GOTO 9
  162. WEND
  163.  
  164. 10 CLS:LOCATE 3,3
  165. schr$="Du stehst auf dem Marktpatz dieser Stadt. Hier herrscht":sp(schr$):LOCATE 5,3
  166. schr$="eine Menge betrieb, denn die Leute hier versuchen den besten":sp(schr$):LOCATE 7,3
  167. schr$="Angeboten nachzukommen. Von hier aus fuehren drei Wege fort:":sp(schr$):LOCATE 9,3
  168. schr$="Es geht nach Osten, Sueden und nach Norden. Du kommst an ":sp(schr$):LOCATE 11,3
  169. schr$="Staenden vorbei, wo die Marktschreier ihre Waren verkuenden.":sp(schr$):LOCATE 14,3:COLOR 3
  170. schr$="Willst Du nach Norden gehen < F1 >":sp(schr$):LOCATE 16,3
  171. schr$="Folgst Du lieber dem Weg nach Sueden? < F2 >":sp(schr$):LOCATE 18,3
  172. schr$="Du kannst auch nach Osten < F3 >":sp(schr$):LOCATE 20,3
  173. schr$="Willst Du nicht ein paar Waren kaufen? < F4 >":sp(schr$):COLOR 2
  174. WHILE 1
  175. getkey x 
  176. ON x GOTO 7,13,9,108
  177. IF x=11 THEN GOSUB dokument:GOTO 10
  178. WEND
  179.  
  180. 11 CLS:LOCATE 3,3
  181. schr$="Du stehst vor einem alten, aus Fachwerk gebauten, Wirtshaus.":sp(schr$):LOCATE 5,3
  182. schr$="Die Fenster des Hauses sind beleuchtet und von innen vernimmst":sp(schr$):LOCATE 7,3
  183. schr$="Du lachenden und singende Stimmen, die zeigen, dass das Haus":sp(schr$):LOCATE 9,3
  184. schr$="offen ist. Rechts neben der Eingangstuer haengt ein altes,":sp(schr$):LOCATE 11,3
  185. schr$="Schmiedeisernes Schild mit der Aufschrift `Wirtshaus zum":sp(schr$):LOCATE 13,3
  186. schr$="Schwarzen Keiler'":sp(schr$):LOCATE 16,3:COLOR 3
  187. schr$="Willst Du das Wirtshaus betreten? < F1 >":sp(schr$):LOCATE 18,3
  188. schr$="Du kannst den Weg auch wieder zurueckgehen < F2 >":sp(schr$):COLOR 2
  189. WHILE 1
  190. getkey x
  191. ON x GOTO 110,6
  192. IF x=11 THEN GOSUB dokument:GOTO 11
  193. WEND
  194.  
  195. 12 CLS:LOCATE 3,3
  196. schr$="Du stehst auf einer alten Kopfsteinpflasterstrasse, die in":sp(schr$):LOCATE 5,3
  197. schr$="west- oestlicher Richtung verlaeuft.":sp(schr$):COLOR 3:LOCATE 8,3
  198. schr$="Du kannst nach Osten < F1 >":sp(schr$):LOCATE 10,3
  199. schr$="Du kannst auch nach Westen < F2 >":sp(schr$):COLOR 2
  200. WHILE 1
  201. getkey x
  202. ON x GOTO 13,17
  203. IF x=11 THEN GOSUB dokument:GOTO 12
  204. WEND
  205.  
  206. 13 CLS:LOCATE 3,3
  207. schr$="Du befindest Dich auf einer normalen Wegkreuzung in der":sp(schr$):LOCATE 5,3
  208. schr$="Stadt. Auf beiden Seiten der Strasse stehen Haeuser und":sp(schr$):LOCATE 7,3
  209. schr$="einige Kinder spielen auf der Strasse. Von hier aus kannst":sp(schr$):LOCATE 9,3
  210. schr$="Du nach Norden, Westen und nach Osten":sp(schr$):COLOR 3:LOCATE 12,3
  211. schr$="Willst Du nach Norden? < F1 >":sp(schr$):LOCATE 14,3
  212. schr$="Es geht auch nach Westen < F2 >":sp(schr$):LOCATE 16,3
  213. schr$="Du kannst auch nach Osten < F3 >":sp(schr$):COLOR 2
  214. WHILE 1
  215. getkey x
  216. ON x GOTO 10,12,14
  217. IF x=11 THEN GOSUB dokument:GOTO 13
  218. WEND
  219.  
  220. 14 CLS:LOCATE 3,3
  221. schr$="Du folgst dem Weg, bis Du schliesslich nach einer kurzen":sp(schr$):LOCATE 5,3
  222. schr$="Weile in zwei Richtungen kannst.":sp(schr$):lcate 8,3:COLOR 3
  223. schr$="Du kannst nach Norden < F1 >":sp(schr$):LOCATE 10,3
  224. schr$="Du kannst nach Westen < F2 >":sp(schr$):COLOR 2
  225. WHILE 1
  226. getkey x
  227. ON x GOTO 9,13
  228. IF x=11 THEN GOSUB dokument:GOTO 14
  229. WEND
  230.  
  231. 16 CLS:LOCATE 3,3
  232. schr$="Du folgst dem Weg noch eine Weile bis er schliesslich in":sp(schr$):LOCATE 5,3
  233. schr$="einer Sackgasse endet. Tja auch nach noch so langem suchen":sp(schr$):LOCATE 7,3
  234. schr$="entdeckst Du keine andere Tuer mehr. Du kannst nur noch":sp(schr$):LOCATE 9,3
  235. schr$="wieder zurueck!":sp(schr$):SLEEP:SLEEP:SLEEP:SLEEP:GOTO 5
  236.  
  237. 17 IF zu=1 THEN 18
  238. CLS:LOCATE 3,3
  239. schr$="Hier endet Dein Weg vor einem grossen, alten, rostigen":sp(schr$):LOCATE 5,3
  240. schr$="Eisentor. Es gibt keine Moeglichkeit hier hindurch zu":sp(schr$):LOCATE 7,3
  241. schr$="kommen. Ich glaube Du musst wieder zurueck!":sp(schr$):SLEEP:SLEEP:SLEEP:GOTO 12
  242.  
  243. 18 CLS:LOCATE 3,3
  244. schr$="Du kommst in einen Garten, wo ein alter Mann mit langem":sp(schr$):LOCATE 5,3
  245. schr$="weissen Bart auf Dich wartet. Als Du naeher an ihn heran-":sp(schr$):LOCATE 7,3
  246. schr$="trittst erkennst Du in ihm den Grossmeister der Magiegilde":sp(schr$):LOCATE 9,3
  247. schr$="in die Du auch eintreten willst. Er spricht in leisen, lang-":sp(schr$):LOCATE 11,3
  248. schr$="samen Worten zu Dir:":sp(schr$):LOCATE 13,3:COLOR 7
  249. schr$="Du hast diese Stadt von Radaz befreit, damit hast Du deine ":sp(schr$):LOCATE 14,3
  250. schr$="erste Aufgabe bestanden. Nun liegt es ganz an Dir, ob Du es":sp(schr$):LOCATE 15,3
  251. schr$="nocheinmal versuchen willst, in unsere Magiergilde aufgenom-":sp(schr$):LOCATE 16,3
  252. schr$="men zu werden. Wenn ja, dann bringe mir":sp(schr$):LOCATE 19,20:COLOR 6
  253. POKE WINDOW (8)+56,4:schr$="Die Fuenf Magischen Dolche":sp(schr$):COLOR 2
  254. SLEEP:SLEEP:SLEEP:SLEEP:CALL setdrmd&(WINDOW(8),0)
  255. CLS:PALETTE 10,1,1,0.13:COLOR 10:LOCATE 3,3
  256. schr$="Das war der erste Teil der Fantasy Triologie. In Arbeit ist":sp(schr$):LOCATE 5,3
  257. schr$="zur Zeit noch der Zweite Teil, sprich `Die Fuenf Magischen":sp(schr$):LOCATE 7,3
  258. schr$="Dolche', die Sie dann auch ueber `Franz PD Software' beziehen":sp(schr$):LOCATE 9,3
  259. schr$="koennen.":sp(schr$):COLOR 6:LOCATE 12,3
  260. schr$="Ueber weitere Anregungen und Vorschlaege freue ich mich!":sp(schr$):LOCATE 14,3
  261. schr$="Meine Adresse lautet:":sp(schr$):POKE WINDOW(8)+56,6:PALETTE 11,0.13,0.67,0:COLOR 11:LOCATE 16,25
  262. sp("Martin Jochimczyk"):LOCATE 17,25:sp("Am Sande 12"):LOCATE 18,25:POKE WINDOW(8)+56,7:sp("D-2723 Scheessel")
  263. COLOR 6
  264. SLEEP:SLEEP:SLEEP
  265. FOR i=0 TO 130 STEP 1
  266. SCROLL (0,80)-(640,200),0,1 
  267. NEXT
  268. POKE WINDOW(8)+56,4
  269. LOCATE 14,20:PRINT "Auf Wiedersehen !":COLOR 10
  270. LOCATE 18,7:PRINT "Ihr Held wird noch auf Diskette gespeichert!"
  271. OPEN "Held" FOR OUTPUT AS#1
  272. WRITE #1,spieler$,geld,punkte,mut,waffe$
  273. WRITE #1,kleidung$,geschick,parade,attacke 
  274. WRITE #1,charisma,intelligenz,kraft,lebensenergie,tp 
  275. CLOSE #1
  276. SYSTEM
  277.  
  278. 100 CLS:LOCATE 3,3
  279. IF geld<=0 THEN 101
  280. schr$="Du kaufst Dir also ein paar Aepfel, ein bischen Brot und ein":sp(schr$):LOCATE 5,3
  281. schr$="Schinke. Du isst die Sachen unverzueglich auf und fuehlst Dich":sp(schr$):LOCATE 7,3
  282. schr$="gleich viel besser.":sp(schr$):SLEEP:SLEEP:SLEEP:SLEEP:lebensenergie=lebensenergie+3
  283. geld=geld-5:RETURN
  284.  
  285. 101 CLS:LOCATE 3,1:COLOR 7
  286. schr$="Die Marktfrau gibt Dir die eingepackte Ware und als Du bezahlen":sp(schr$):LOCATE 5,1
  287. schr$="willst merkst Du das Du gar kein Geld mehr hast. Na so eine ":sp(schr$):LOCATE 7,1
  288. schr$="Scheisse! Unter wilden fluchen, und unter einem Hagel von alten":sp(schr$):LOCATE 9,1
  289. schr$="Eiern jagt Sie Dich weg von ihrem Stand":sp(schr$):SLEEP:SLEEP:SLEEP:SLEEP:punkte=punkte-2:charisma=charisma-1
  290. IF charisma<=0 THEN charisma=0:COLOR 2:GOTO 3
  291.  
  292. 102 CLS:LOCATE 3,3
  293. schr$="Du machst Deinen Geldbeutel von der Hose ab und schmeisst den":sp(schr$):LOCATE 5,3
  294. schr$="den Geldbeutel zu dem Mann herueber. Dieser hebt ihn auf und ":sp(schr$):LOCATE 7,3
  295. schr$="verschwindet in der Dunkelheit so schnell wie er gekommen ist":sp(schr$)
  296. geld=0:SLEEP:SLEEP:SLEEP:GOTO 105
  297.  
  298. 103 CLS:LOCATE 3,3
  299. schr$="Wildentschlossen greifst Du zu Deiner Waffe und springst auf":sp(schr$):LOCATE 5,3
  300. schr$="ihn los. Schnell jedoch zieht es ein langes Bastardmesser und":sp(schr$):LOCATE 7,3
  301. schr$="weicht Dir aus. Es kommt zum Kampf auf Leben und Tot!":sp(schr$)
  302. monstertrefferpunkte=3:monstername$="Strassenbandit":monsterattacke=12:monsterparade=10:monsterpunkte=15
  303. gh=1:i=1:GOTO kampf
  304.  
  305. 104 CLS:LOCATE 3,3
  306. schr$="Schnell drehst Du Dich um und nimmst Deine Beine unter die ":sp(schr$):LOCATE 5,3
  307. schr$="Arme, doch es hilft alles nichts. Die dukle Gestalt hat ein":sp(schr$):LOCATE 7,3
  308. schr$="langes Bastardmesser gezogen und auf Dich geschmissen. Unter":sp(schr$):LOCATE 9,3
  309. schr$="einem letzten Aufschrei sinkst Du leblos zu Boden!":sp(schr$)
  310. SLEEP:SLEEP:SLEEP:GOTO schluss
  311.  
  312. 105 CLS:LOCATE 3,3
  313. schr$="Hier stehst Du nun in der dunklen Gasse. Von hier aus kannst":sp(schr$):LOCATE 5,3
  314. schr$="Du nach Norden, Sueden und nach Westen gehen.":sp(schr$):gh=1:COLOR 3:LOCATE 10,3
  315. schr$="Willst Du nach Norden < F1 >":sp(schr$):LOCATE 12,3
  316. schr$="Du kannst auch noch nach Sueden < F2 >":sp(schr$):LOCATE 14,3
  317. schr$="Oder fuehr Dich dein Weg nach Westen < F3 >":sp(schr$):COLOR 2
  318. WHILE 1
  319. getkey x
  320. ON x GOTO 2,11,5
  321. WEND
  322.  
  323. 106 CLS:LOCATE 3,1
  324. schr$="Du betrittst ein altes, kleines Haus mit nur einem Raum. Als":sp(schr$):LOCATE 5,1
  325. schr$="Du mit Deiner Waffe die Wohnstaette betrittst, springen zwei":sp(schr$):LOCATE 7,1
  326. schr$="Kinder aufgeregt hinter den Kamin. Du setzt Dich mit dem alten":sp(schr$):LOCATE 9,1
  327. schr$="Mann an einen Tisch und er faeng an zu erzaehlen:":sp(schr$):LOCATE 11,1:COLOR 5
  328. schr$="`Frueher war die Stadt einmal eine friedliche Stadt. Heute gibt":sp(schr$):LOCATE 13,1
  329. schr$="es hier nur noch Gewalt und Ueberfaelle. Wer sich Radaz und ":sp(schr$):LOCATE 15,1
  330. schr$="seiner Bande nicht fuegt wird umgebracht. Es ist schrecklich.":sp(schr$):LOCATE 17,1
  331. schr$="Auch deinen Freund haben Sie ermordet, weil er nicht mit in":sp(schr$):LOCATE 19,1
  332. schr$="Radaz Bande wollte. Er war so ein guter Kerl. Raeche ihn!!":sp(schr$):LOCATE 21,1:COLOR 2
  333. schr$="Dann bringt er dich wieder nach draussen!":sp(schr$)
  334. SLEEP:SLEEP:SLEEP:GOTO 107
  335.  
  336. 107 CLS:LOCATE 3,3
  337. schr$="Du bist auf einer alten Strasse. Neben Dir fliesst Unrat in":sp(schr$):LOCATE 5,3
  338. schr$="einem kleinen bach die Strasse hinunter. Als Du an einigen ":sp(schr$):LOCATE 7,3
  339. schr$="Haeusern vorbeigehst werden hastig die Tueren und Fenster":sp(schr$):LOCATE 9,3
  340. schr$="geschlossen.":sp(schr$):COLOR 3:LOCATE 12,3
  341. schr$="Mit < F1 > gehst Du nach Norden":sp(schr$):LOCATE 14,3
  342. schr$="Du kannst auch nach Sueden mit < F2 >":sp(schr$):LOCATE 16,3
  343. schr$="Willst Du nicht nach Westen? < F3 >":sp(schr$):COLOR 2
  344. WHILE 1
  345. getkey x
  346. ON x GOTO 3,9,7
  347. IF x=11 THEN GOSUB dokument:GOTO 107
  348. WEND
  349.  
  350. 108 IF geld<=0 THEN 109
  351. CLS:LOCATE 3,3
  352. schr$="Du gehst an einen Stand und kaufst Dir ein bischen Brot und":sp(schr$):LOCATE 5,3
  353. schr$="etwas zu trinken. Es ist ein guter Schoppen Wein mit einer":sp(schr$):LOCATE 7,3
  354. schr$="milden Bluete und herzhaften Geschmack. Das Brot ist ein ":sp(schr$):LOCATE 9,3
  355. schr$="wenig zu trocken, schmeckt aber trotzdem relativ gut.":sp(schr$)
  356. SLEEP:SLEEP:SLEEP:SLEEP:geld=geld-2:lebensenergie=lebensenergie+3:punkte=punkte+1:GOTO 10
  357.  
  358. 109 CLS:LOCATE 3,3
  359. schr$="Du hast ja gar kein Geld mehr um Dir solche Koestlichkeiten":sp(schr$):LOCATE 5,3
  360. schr$="zu kaufen. Das ist aber nicht nett dem Verkauefer gegenueber,":sp(schr$):LOCATE 7,3
  361. schr$="der sich solche Muehe beim Einpacken gegeben hat. Du entschul-":sp(schr$):LOCATE 9,3
  362. schr$="digst Dich also ganz lieb und der Verkaeufer drueck noch mal":sp(schr$):LOCATE 11,3
  363. schr$="ein Auge zu!":sp(schr$):SLEEP:SLEEP:SLEEP:GOTO 10
  364.  
  365. 110 IF kampf=1 THEN 117
  366. CLS:LOCATE 3,3
  367. schr$="Gesagt getan. Du oeffnest die Tuer und trittst in einen ca.":sp(schr$):LOCATE 4,3
  368. schr$="8x12 Meter grossen Raum. An der Westwand befindet sich der ":sp(schr$):LOCATE 5,3
  369. schr$="Tresen des Raumes. An der suedlichen Wand fuehrt ein Treppe":sp(schr$):LOCATE 6,3
  370. schr$="in den zweiten Stock. In der Mitte des Raumes stehen einige":sp(schr$):LOCATE 7,3
  371. schr$="Tische, an denen Menschen sitzen und ihr Meet trinken. An der":sp(schr$):LOCATE 8,3
  372. schr$="Ostwand steht noch ein runder Tisch, wo ein Mann sitzt, der":sp(schr$):LOCATE 9,3
  373. schr$="nur Radaz sein kann. Du hast noch nie so einen wiederlichen":sp(schr$):LOCATE 10,3
  374. schr$="Menschen in deinem Leben gesehen!":sp(schr$):LOCATE 13,3:COLOR 3
  375. schr$="Du kannst das Wirtshaus wieder verlassen < F1 >":sp(schr$):LOCATE 14,3
  376. schr$="Willst Du Radaz angreifen? < F2 >":sp(schr$):LOCATE 15,3
  377. schr$="Du setzt Dich an einen Tisch und bestellst etwas < F3 >":sp(schr$):LOCATE 16,3
  378. schr$="Du nimmst Dir ein Zimmer < F4 >":sp(schr$):LOCATE 17,3
  379. schr$="Ein Drink an der Theke waere nicht schlecht < F5 >":sp(schr$):COLOR 2
  380. WHILE 1
  381. getkey x
  382. ON x GOTO 11,111,112,113,114
  383. IF x=11 THEN GOSUB dokument:GOTO 110
  384. WEND
  385.  
  386. 111 CLS:LOCATE 3,3
  387. IF rgh=1 THEN 115
  388. schr$="Du greifst Deine Waffe und springst mit einem Kriegsschrei":sp(schr$):LOCATE 5,3
  389. schr$="auf Radaz los, doch dieser ist ein geuebter Kaempfer. Er":sp(schr$):LOCATE 7,3
  390. schr$="weicht Deiner Attacke aus und es kommt zu einem Kampf!":sp(schr$)
  391. SLEEP:SLEEP:SLEEP:SLEEP:i=2:rgh=1:monstername$="Radaz":monsterattacke=15:monsterparade=14:monsterlebensenergie=20
  392. monstertrefferpunkte=4:monsterpunkte=40:GOTO kampf
  393.  
  394. 112 CLS:LOCATE 3,3
  395. geld=geld-1:IF geld<=0 THEN schr$="Du hast kein Geld mehr!":sp(schr$):SLEEP:SLEEP:SLEEP:SLEEP:GOTO 110
  396. schr$="Du sitzt an einem runden Tisch in der westlichen Ecke des ":sp(schr$):LOCATE 5,3
  397. schr$="und schluerfst dein Krug mit Meet. Zwei Tische von Dir ist":sp(schr$):LOCATE 7,3
  398. schr$="Radaz entfernt und er pruegelt gerade einen seiner Banden-":sp(schr$):LOCATE 9,3
  399. schr$="mitglieder, da dieser einen Mitbuerger verschont hat.":sp(schr$):COLOR 3:LOCATE 12,3
  400. schr$="Willst Du das Wirtshaus wieder verlassen? < F1 >":sp(schr$):LOCATE 14,3
  401. schr$="Du kannst Radaz angreifen < F2 >":sp(schr$):LOCATE 16,3
  402. schr$="Du nimmst Dir ein Zimmer < F3 >":sp(schr$):COLOR 2
  403. WHILE 1
  404. getkey x
  405. ON x GOTO 11,111,113
  406. IF x=11 THEN GOSUB dokument:GOTO 112
  407. WEND
  408.  
  409. 114 CLS:LOCATE 3,3
  410. schr$="Da dich der Wirt symphatisch findet und Du auch gleich in":sp(schr$):LOCATE 5,3
  411. schr$="ein Gespraech mit ihm kommst gibt er Dir eine Bloody Harry":sp(schr$):LOCATE 7,3
  412. schr$="aus. Ihr labert so ueber dies und das, und ueber Gott und die":sp(schr$):LOCATE 9,3
  413. schr$="Welt, aber natuerlich nicht ueber Radaz. Als Du deinen Drink":sp(schr$):LOCATE 11,3
  414. schr$="ausgetrunken hast, bedankst Du Dich und verlaesst das Lokal ":sp(schr$):SLEEP:SLEEP:SLEEP:SLEEP:GOTO 11
  415.  
  416. 113 CLS:LOCATE 3,3
  417. geld=geld-3:IF geld<=0 THEN sp("Du hast kein Geld mehr!"):SLEEP:SLEEP:SLEEP:GOTO 110
  418. schr$="Du gehst auf Dein kleines Zimmer, es ist nicht sehr nobel":sp(schr$):LOCATE 5,3
  419. schr$="eingerichtet, aber es reicht und legst Dich auf das kleine":sp(schr$):LOCATE 7,3
  420. schr$="Bett. Da es noch frueh am Abend ist und Du als Partyloewe es":sp(schr$):LOCATE 9,3
  421. schr$="gewohnt bist erst spaet ins Bett zu gehen, kannst Du nicht":sp(schr$):LOCATE 11,3
  422. schr$="einschlafen und gehst wieder hinunter!":sp(schr$):SLEEP:SLEEP:SLEEP:GOTO 110
  423.   
  424. 115 CLS:LOCATE 3,3
  425. schr$="Wie oft willst Du ihn denn noch angreifen? Er ist tot und":sp(schr$):LOCATE 5,3
  426. schr$="wird es auch bleiben!":sp(schr$):SLEEP:SLEEP:SLEEP:GOTO 110
  427.  
  428. 116 CLS:LOCATE 3,3:COLOR 6
  429. schr$="Du hast ihn getoetet! Langsam zuegelt sich Dein Hass wieder":sp(schr$):LOCATE 5,3
  430. schr$="gegen ihn und Du denkst wieder an Deinen toten Freund! Was":sp(schr$):LOCATE 7,3
  431. schr$="kann Dir jetzt noch passieren? Sollte jetzt alles vorbei sein?":sp(schr$):LOCATE 9,3
  432. schr$="Gewiss nicht, denn ploetzlich hoerst Du wie Radaz Anhaenger ":sp(schr$):LOCATE 11,3
  433. schr$="ihre Waffe zuecken. Du ziehst es doch lieber vor jetzt zu":sp(schr$):LOCATE 13,3
  434. schr$="fluechten. Schnell verlaesst Du dass Wirtshaus wieder !":sp(schr$):SLEEP:kampf=1:COLOR 2:zu=1:SLEEP:SLEEP:GOTO 11
  435.  
  436. 117 CLS:LOCATE 3,3
  437. schr$="Das willst Du doch nicht wirklich tun oder? Willst Du Dein":sp(schr$):LOCATE 5,3
  438. schr$="Leben einfach so vor die Hunde werfen? Ich glaube das wuerdest":sp(schr$):LOCATE 7,3
  439. schr$="Du nicht ueberleben!":sp(schr$):SLEEP:SLEEP:SLEEP:GOTO 11
  440.  
  441. 260 COLOR 2
  442. IF i=1 THEN 105
  443. IF i=2 THEN 116
  444.  
  445. REM ********************
  446. REM ** unterprogramme **
  447. REM ********************
  448.  
  449. SUB sp(schr$) STATIC
  450. CALL text(WINDOW(8),SADD(schr$),LEN(schr$))
  451. END SUB
  452.  
  453. SUB getkey (keynumber) STATIC
  454. in$=""
  455. WHILE in$=""
  456. SLEEP
  457. in$=INKEY$
  458. WEND
  459. keynumber=ASC(in$)-128
  460. IF keynumber<1 OR keynumer>10 THEN keynumber=0
  461. END SUB
  462.  
  463.  
  464. dokument:
  465. CLS:LOCATE 3,3 
  466. PRINT "Name: ";spieler$
  467. LOCATE 5,3:COLOR 6
  468. PRINT "Mut:":COLOR 7:LOCATE 5,25:PRINT mut:COLOR 6:LOCATE 7,3
  469. PRINT "Geschick:":COLOR 7:LOCATE 7,25:PRINT geschick:COLOR 6:LOCATE 9,3
  470. PRINT "Klugheit:":COLOR 7:LOCATE 9,25:PRINT intelligenz:COLOR 6:LOCATE 11,3
  471. PRINT "Kraft:":COLOR 7:LOCATE 11,25:PRINT kraft:COLOR 6:LOCATE 13,3
  472. PRINT "Charisma:":COLOR 7:LOCATE 13,25:PRINT charisma:COLOR 6:LOCATE 15,3
  473. PRINT "Attacke:":COLOR 7:LOCATE 15,25:PRINT attacke:COLOR 6:LOCATE 17,3
  474. PRINT "Parade:":COLOR 7:LOCATE 17,25:PRINT parade 
  475. LOCATE 19,3:COLOR 5
  476. PRINT "Lebensenergie:";TAB(25);lebensenergie
  477. COLOR 6:LOCATE 5,31:PRINT "Waffe:":COLOR 7:LOCATE 5,45:PRINT waffe$
  478. COLOR 6:LOCATE 7,31:PRINT "Ruestung:":COLOR 7:LOCATE 7,45:PRINT  kleidung$
  479. COLOR 6:LOCATE 9,31:PRINT "Vermoegen:":COLOR 7:LOCATE 9,44:PRINT geld
  480. COLOR 6:LOCATE 11,31:PRINT "Punkte:":COLOR 3:LOCATE 11,44:PRINT punkte
  481. COLOR 2
  482. SLEEP:SLEEP
  483. WHILE a$=""
  484. a$=INKEY$
  485. WEND
  486. RETURN
  487.  
  488. schluss:
  489. CLS:LOCATE 3,3:COLOR 7
  490. PRINT "Hey ";spieler$;", Du solltest auch mal die positive Seite"
  491. PRINT "  dieser Entwickling betrachten: Du hast es hinter Dir,"
  492. PRINT "  niemand kann Dich mehr quaelen und demuetigen..."
  493. PRINT:PRINT"  Du hast trotzdem schon";punkte;" Punkte gemacht. Bravo"
  494. COLOR 3:PRINT:PRINT"Noch ein Spiel?"
  495. PRINT "       < F1 > Na klar, ich bin doch kein looser"
  496. PRINT "       < F2 > So ein scheiss Spiel, schnell weg"
  497. WHILE 1
  498. getkey x
  499. IF x=1 THEN LOAD"TDBS",r
  500. IF x=2 THEN SYSTEM
  501. WEND
  502.  
  503. an:  
  504.  COLOR 6 
  505.  IF lebensenergie<=0 THEN schluss
  506.   IF monsterlebensenergie<=0 THEN punkte=punkte+monsterpunkte:GOTO 260 
  507.  LOCATE 6,3:PRINT"Lebensenergie: ";lebensenergie
  508.  COLOR 5
  509.  LOCATE 6,35:PRINT "Monsterenergie: ";monsterlebensenergie
  510. RETURN
  511.  
  512. kampf:
  513. CLS:LOCATE 3,3:COLOR 7
  514. PRINT "Name: ";UCASE$(spieler$):LOCATE 3,35:PRINT "Monster: ";monstername$
  515. WHILE 1
  516. duatt:
  517. x=INT(RND*(20+1))
  518. IF x<attacke THEN GOTO monstpa
  519. IF x>attacke THEN GOTO monstatt
  520. dupa:
  521. y=INT(RND*(20+1))
  522. IF y<parade THEN GOSUB an:GOTO duatt
  523. IF y>parade THEN lebensenergie=lebensenergie-INT(RND*(6+1)+monstertrefferpunkte):GOSUB an:GOTO duatt
  524. monstatt:                                                                   
  525. x=INT(RND*(20+1))
  526. IF x<monsterattacke THEN GOSUB an:GOTO dupa
  527. IF x>monsterattacke THEN GOSUB an:GOTO duatt
  528. monstpa:
  529. y=INT(RND*(20+1))
  530. IF y<monsterparade THEN GOSUB an:GOTO monstatt
  531. IF y>monsterparade THEN monsterlebensenergie=monsterlebensenergie-tp:GOSUB an:GOTO monstatt
  532. WEND
  533.  
  534.  
  535.